-- checkDate is written as a separate handler so it will work
-- with HyperDA which will skip it this way instead of going
-- into a loop
exit openCard
end openCard
on checkDate
put the date into today
convert today to seconds
put "11/2/91" into effDate
convert effDate to seconds
if today ‚â• effDate and background field "Area Code" is "213" then
put "The 213 area code split into two area codes on 11/2/91"
answer "Create new 310 Area Code? (see msg box)" with Cancel or OK
if it is "Cancel" then exit checkDate
--temporairly change the AC as an update in progress indicator
put "213x" into field "Area Code"
set the script of this card to empty
-- user level must be ‚â• 3 (painting) to allow copy card
put the userLevel into saveULev
set the userLevel to 3
-- create a new card for the new area code
doMenu "Copy Card"
doMenu "Paste Card"
set the userLevel to saveULev
put "310" into field "Area Code"
put "California, LongBeach" into field "region"
-- find the first line of locations that go with new area code
find "Artesia,"
if fld "Area Code" is not "310" or the foundText is empty then
answer "Problem creating new Area code card"
exit checkDate
end if
-- delete locations above that are still in the old area code
put word 2 of the foundLine into tmp1
repeat tmp1 - 1 times
delete line 1 of field "locations"
end repeat
put return & "Note: This area code was split from the 213 area code in 1991" & return before line 2 of fld "locations"
-- find the old area code card
find "213x" in field "Area Code"
-- delete locations below Note: that are in the new area code
put "213" into field "Area Code" --change back from 213x
find "Note:" in fld "locations"
if fld "Area Code" is not "213" or the foundText is empty then
answer "Problem editing Area code card"
exit checkDate
end if
put word 2 of the foundLine into tmp2
repeat with i = tmp2 to number of lines in fld "locations"
put empty into line i of field "locations"
end repeat
end if
end checkDate
-- part contents for background part 1
----- text -----
213
-- part contents for background part 2
----- text -----
GMT -8 (Pacific)
-- part contents for background part 3
----- text -----
California, Los Angeles
-- part contents for background part 4
----- text -----
Los Angeles, Montebello
Note: The following will move to a new Area Code (310) on Nov. 2, 1991.
Artesia, Bell, Bellflower, Beverly Hills, Carson, Cerritos, Compton, Culver City, Downey, El Segundo, Gardena, Hawthorne, Hermosa Beach, Huntington Park, Inglewood, La Habra, Lakewood, Lomita, Long Beach, Lynwood, Manhattan Beach, Maywood, Norwalk, Paramount, Pico Rivera, Redondo, Redondo Beach, San Pedro, Santa Fe Springs, Santa Monica, Seal Beach, South Gate, Torrance, Venice, Whittier, Wilmington
Permissive dialing will allow access by dialing either area code until 5/2/92.
